home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
CreateFilter.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
2KB
|
68 lines
/*
CreateFilter.zp 1.1 (26.2.94) by Ueli Kaufmann
ARexx skript für Zodiac's Point V37.121ß und groesser.
Zweck:
------
Speichert die Namen aller Bretter mit neuen Nachrichten in einer
Filter-Datei "t:filter.zp". Mit dieser Filter-Datei ist es
moeglich, einen PUFFER erneut einsortieren zu lassen und dabei
die bereits fertig einsortieren Bretter auszusparen.
Gruende, einen Puffer erneut einzusortieren koennten sein:
- eine fehlerhafte Nachricht im PUFFER.
- ein Absturz des Computers waehrend des Einsortierens.
Wichtig:
--------
Es kann vorkommen, dass ein puffer einsortiert wird, aber die
Nachrichten nicht gelesen werden, da keine Zeit/Lust/etc..
Wenn spaeter erneut ein puffer einsortiert wird, kann es
vorkommen, dass die vermeintlich bereits einsortierten Bretter
sich noch auf den aelteren puffer beziehen und im neuen puffer
waeren noch Nachrichten in diese Bretter einzusortieren.
Um dem ein bisschen vorzubeugen, muss der Anwender jedes Brett
mit neuen Nachrichten, das in die Filterdatei uebernommen werden
soll, mit einem Requester quittieren..
*/
filterfile = "t:filter.zp"
parse arg zpPort /* ZP-Port Name als Argument erhalten. */
if zpPort == "" then /* Wirklich? */
zpPort = "ZPoint" /* Ätschi-Bätschi */
address value zpPort
options results
WHICHLEVEL
if RESULT ~= "BOARDMENU" then
BOARDMENU
JUMPTOBOARD 1
if ~open('fh',filterfile,write) then
do
REQUESTNOTIFY "Die Filterdatei kann nicht erstellt werden.."
exit(0)
end
do forever
JUMPTONEW Down
if rc ~= 0 then
do
BOARDINFO Names
boardNames = RESULT
REQUESTRESPONSE "Soll(en) die Adresse(n)" || '0a'x || boardNames || '0a'x || "in die Filterdatei uebernommen werden?"
if rc ~= 0 then
dummy = writeln('fh',boardNames)
end
else
leave
end
dummy = close('fh')